/ /   D i g i t a l   C l o c k 
 
 / /   L a t r o X   1 . 2   b y   e X t r e m e H u n t e r 1 9 7 2 
 
 / /   @ a u t h o r   " j s c r i p t   b y   H u n t e r   > >   h t t p : / / e x t r e m e h u n t e r 1 9 7 2 . d e v i a n t a r t . c o m / a r t / L a t r o X - 1 - 2 - 1 5 1 9 2 4 0 5 9 
 
 / /   W S H   P a n e l   M o d   c o m p o n e n t   b y   T i a n p e n g   W a n g 
 
 / /   M o d i f e d   A H A P X I C T   a n d   k g e n a _ u a   f o r   D a r k O n e   v 3 . 1   b y   t e d G o 
 
 
 
 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
 
 / /   C h o o s e   y o u r   l a n g u a g e   h e r e . 
 
 
 
 
 
 / /   E N G L I S H   =   1 
 
 / /   E S T O N I A N   =   2 
 
 / /   G E R M A N   =   3 
 
 / /   F R E N C H   =   4 
 
 / /   F I N N I S H   =   5 
 
 / /   R U S S I A N   =   6 
 
 / /   U K R A I N I A N   =   7 
 
 
 
 v a r   l a n g u a g e   =   6 
 
 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 
 
 
 
 f u n c t i o n   R G B ( r , g , b ) {   r e t u r n   ( 0 x f f 0 0 0 0 0 0 | ( r < < 1 6 ) | ( g < < 8 ) | ( b ) ) ;   } 
 
 
 
 M F _ S E P A R A T O R   =   0 x 0 0 0 0 0 8 0 0 ; 
 
 M F _ S T R I N G   =   0 x 0 0 0 0 0 0 0 0 ; 
 
 
 
 v a r   D T _ C E N T E R   =   0 x 0 0 0 0 0 0 0 1 ; 
 
 v a r   g _ f o n t 1   =   g d i . F o n t ( " D a r k O n e " ,   5 7 ,   0 ) ;   / / T i m e 
 
 v a r   g _ f o n t 2   =   g d i . F o n t ( " D a r k O n e " ,   1 9 ,   0 ) ;   / /   D a y 
 
 v a r   g _ f o n t 3   =   g d i . F o n t ( " D a r k O n e " ,   3 8 ,   0 ) ;   / /   D a t e 
 
 v a r   g _ f o n t 4   =   g d i . F o n t ( " D a r k O n e " ,   1 9 ,   0 ) ;   / /   M o n t h 
 
 
 
 v a r   c u r r e n t T i m e   =   n e w   D a t e ( ) ; 
 
 v a r   c l o c k _ t i m e   =   w i n d o w . S e t I n t e r v a l ( o n _ t i m e r ,   1 0 0 0 ) 
 
 
 
 i f ( l a n g u a g e   = =   1 ) { 
 
 v a r   d a y s   =   n e w   A r r a y ( " S u n d a y " ,   " M o n d a y " ,   " T u e s d a y " ,   " W e d n e s d a y " ,   " T h u r s d a y " ,   " F r i d a y " ,   " S a t u r d a y " ) ; 
 
 v a r   m o n t h s   =   n e w   A r r a y ( " J a n u a r y " ,   " F e b r u a r y " ,   " M a r c h " ,   " A p r i l " ,   " M a y " ,   " J u n e " ,   " J u l y " ,   " A u g u s t " ,   " S e p t e m b e r " ,   " O c t o b e r " ,   " N o v e m b e r " ,   " D e c e m b e r " ) ; 
 
 } 
 
 i f ( l a n g u a g e   = =   2 ) { 
 
 v a r   d a y s   =   n e w   A r r a y ( " P  h a p  e v " ,   " E s m a s p  e v " ,   " T e i s i p  e v " ,   " K o l m a p  e v " ,   " N e l j a p  e v " ,   " R e e d e " ,   " L a u p  e v " ) ; 
 
 v a r   m o n t h s   =   n e w   A r r a y ( " J a a n u a r " ,   " V e e b r u a r " ,   " M  r t s " ,   " A p r i l l " ,   " M a i " ,   " J u u n i " ,   " J u u l i " ,   " A u g u s t " ,   " S e p t e m b e r " ,   " O k t o o b e r " ,   " N o v e m b e r " ,   " D e t s e m b e r " ) ; 
 
 } 
 
 i f ( l a n g u a g e   = =   3 ) { 
 
 v a r   d a y s   =   n e w   A r r a y ( " S o n n t a g " ,   " M o n t a g " ,   " D i e n s t a g " ,   " M i t t w o c h " ,   " D o n n e r s t a g " ,   " F r e i t a g " ,   " S a m s t a g " ) ; 
 
 v a r   m o n t h s   =   n e w   A r r a y ( " J a n u a r " ,   " F e b r u a r " ,   " M  r z " ,   " A p r i l " ,   " M a i " ,   " J u n i " ,   " J u l i " ,   " A u g u s t " ,   " S e p t e m b e r " ,   " O k t o b e r " ,   " N o v e m b e r " ,   " D e z e m b e r " ) ; 
 
 } 
 
 i f ( l a n g u a g e   = =   4 ) { 
 
 v a r   d a y s   =   n e w   A r r a y ( " D i m a n c h e " ,   " L u n d i " ,   " M a r d i " ,   " M e r c r e d i " ,   " J e u d i " ,   " V e n d r e d i " ,   " S a m e d i " ) ; 
 
 v a r   m o n t h s   =   n e w   A r r a y ( " J a n v i e r " ,   " F  v r i e r " ,   " M a r s " ,   " A v r i l " ,   " M a i " ,   " J u i n " ,   " J u i l l e t " ,   " A o  t " ,   " S e p t e m b r e " ,   " O c t o b r e " ,   " N o v e m b r e " ,   " D  c e m b r e " ) ; 
 
 } 
 
 i f ( l a n g u a g e   = =   5 ) { 
 
 v a r   d a y s   =   n e w   A r r a y ( " S u n n u n t a i " ,   " M a a n a n t a i " ,   " T i i s t a i " ,   " K e s k i v i i k o " ,   " T o r s t a i " ,   " P e r j a n t a i " ,   " L a u a n t a i " ) ; 
 
 v a r   m o n t h s   =   n e w   A r r a y ( " T a m m i k u u " ,   " H e l m i k u u " ,   " M a a l i s k u u " ,   " H u h t i k u u " ,   " T o u k o k u u " ,   " K e s  k u u " ,   " H e i n  k u u " ,   " E l o k u u " ,   " S   s k u u " ,   " L o k a k u u " ,   " M a r r a s k u u " ,   " J o u l u k u u " ) ; 
 
 } 
 
 i f ( l a n g u a g e   = =   6 ) { 
 
 v a r   d a y s   =   n e w   A r r a y ( " >A:@5A5=L5" ,   " >=545;L=8:" ,   " B>@=8:" ,   " !@540" ,   " '5B25@3" ,   " OB=8F0" ,   " !C11>B0" ) ; 
 
 v a r   m o n t h s   =   n e w   A r r a y ( " /=20@L" ,   " $52@0;L" ,   " 0@B" ,   " ?@5;L" ,   " 09" ,   " N=L" ,   " N;L" ,   " 23CAB" ,   " !5=BO1@L" ,   " :BO1@L" ,   " >O1@L" ,   " 5:01@L" ) ; 
 
 } 
 
 i f ( l a n g u a g e   = =   7 ) { 
 
 v a r   d a y s   =   n e w   A r r a y ( " 54V;O" ,   " >=54V;>:" ,   " V2B>@>:" ,   " !5@540" ,   " '5B25@" ,   "  OB=8FO" ,   " !C1>B0" ) ; 
 
 v a r   m o n t h s   =   n e w   A r r a y ( " !VG5=L" ,   " NB89" ,   " 5@575=L" ,   " 2VB5=L" ,   " "@025=L" ,   " '5@25=L" ,   " 8?5=L" ,   " !5@?5=L" ,   " 5@5A5=L" ,   " >2B5=L" ,   " 8AB>?04" ,   " @C45=L" ) ; 
 
 } 
 
 f u n c t i o n   o n _ p a i n t ( g r ) { 
 
       
 
 i f   ( w i n d o w . G e t P r o p e r t y ( " C o l o r " )   = =   1 )   v a r   f o n t _ r g b   =   R G B ( 1 9 1 , 2 2 8 , 2 5 5 ) ;     / / D e f a u l t       
 
 i f   ( w i n d o w . G e t P r o p e r t y ( " C o l o r " )   = =   2 )   v a r   f o n t _ r g b   =   R G B ( 1 2 8 , 1 9 2 , 2 5 5 ) ;     / / B l u e       
 
 i f   ( w i n d o w . G e t P r o p e r t y ( " C o l o r " )   = =   3 )   v a r   f o n t _ r g b   =   R G B ( 0 , 2 5 5 , 0 ) ;             / / G r e e n       
 
 i f   ( w i n d o w . G e t P r o p e r t y ( " C o l o r " )   = =   4 )   v a r   f o n t _ r g b   =   R G B ( 2 5 5 , 0 , 0 ) ;             / / R e d       
 
 i f   ( w i n d o w . G e t P r o p e r t y ( " C o l o r " )   = =   5 )   v a r   f o n t _ r g b   =   R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) ;     / / W h i t e       
 
 i f   ( w i n d o w . G e t P r o p e r t y ( " C o l o r " )   = =   6 )   v a r   f o n t _ r g b   =   R G B ( 2 5 5 , 2 5 5 , 0 ) ;         / / Y e l l o w 
 
       
 
 g r . S e t T e x t R e n d e r i n g H i n t ( 5 ) ; 
 
 
 
 v a r   c u r r e n t H o u r s   =   c u r r e n t T i m e . g e t H o u r s   (   ) ; 
 
 v a r   c u r r e n t M i n u t e s   =   c u r r e n t T i m e . g e t M i n u t e s   (   ) ; 
 
 v a r   c u r r e n t S e c o n d s   =   c u r r e n t T i m e . g e t S e c o n d s   (   ) ; 
 
 v a r   c u r r e n t D a y   =   c u r r e n t T i m e . g e t D a y   (   ) ; 
 
 v a r   c u r r e n t D a t e   =   c u r r e n t T i m e . g e t D a t e   (   ) ; 
 
 v a r   c u r r e n t M o n t h   =   c u r r e n t T i m e . g e t M o n t h   (   ) ; 
 
 v a r   w w   =   w i n d o w . W i d t h ; 
 
 v a r   t x t ; 
 
 v a r   y   =   5 ; 
 
   
 
 
 
     c u r r e n t M i n u t e s   =   (   c u r r e n t M i n u t e s   <   1 0   ?   " 0 "   :   " "   )   +   c u r r e n t M i n u t e s ; 
 
     c u r r e n t S e c o n d s   =   (   c u r r e n t S e c o n d s   <   1 0   ?   " 0 "   :   " "   )   +   c u r r e n t S e c o n d s ; 
 
   
 
     g r . G d i D r a w T e x t (   c u r r e n t H o u r s   +   " : "   +   c u r r e n t M i n u t e s   +   " : "   +   c u r r e n t S e c o n d s ,   g _ f o n t 1 ,   f o n t _ r g b ,   - 2 4 ,   9 - y ,   w w ,   5 8 ,   D T _ C E N T E R ) ; 
 
     g r . G d i D r a w T e x t (   d a y s [ c u r r e n t D a y ]   ,   g _ f o n t 2 ,   f o n t _ r g b ,   1 4 0 ,   1 7 - y ,   w w ,   2 2 ,   D T _ C E N T E R ) ; 
 
     g r . G d i D r a w T e x t (   c u r r e n t D a t e   ,   g _ f o n t 3 ,   f o n t _ r g b ,   - 1 6 7 ,   2 1 - y ,   w w ,   4 6 ,   D T _ C E N T E R ) ; 
 
     g r . G d i D r a w T e x t (   " | "   ,   g _ f o n t 3 ,   f o n t _ r g b ,   - 1 9 5 ,   2 1 - y ,   w w ,   4 0 ,   D T _ C E N T E R ) ; 
 
     g r . G d i D r a w T e x t (   " | "   ,   g _ f o n t 3 ,   f o n t _ r g b ,   - 1 3 5 ,   2 1 - y ,   w w ,   4 0 ,   D T _ C E N T E R ) ; 
 
     g r . G d i D r a w T e x t (   " _ _ _ "   ,   g _ f o n t 3 ,   f o n t _ r g b ,   - 1 6 5 ,   - 1 0 - y ,   w w ,   4 0 ,   D T _ C E N T E R ) ; 
 
     g r . G d i D r a w T e x t (   " _ _ _ "   ,   g _ f o n t 3 ,   f o n t _ r g b ,   - 1 6 5 ,   2 8 - y ,   w w ,   4 0 ,   D T _ C E N T E R ) ; 
 
     g r . G d i D r a w T e x t (   m o n t h s [ c u r r e n t M o n t h ]   +   "   "   ,   g _ f o n t 4 ,   f o n t _ r g b ,   1 4 4 ,   4 1 - y ,   w w ,   2 2 ,   D T _ C E N T E R ) ; 
 
 } 
 
 / /   = = = = = = = = M e n u = = = = = = = =   / / 
 
 f u n c t i o n   o n _ m o u s e _ r b t n _ u p ( x ,   y )   { 
 
 
 
         v a r   _ m e n u   =   w i n d o w . C r e a t e P o p u p M e n u ( ) ; 
 
       
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   1 ,   " D e f a u l t " ) ; 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   2 ,   " B l u e " ) ; 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   3 ,   " G r e e n " ) ; 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   4 ,   " R e d " ) ; 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   5 ,   " W h i t e " ) ; 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   6 ,   " Y e l l o w " ) 
 
         _ m e n u . C h e c k M e n u R a d i o I t e m ( 1 ,   6 ,   w i n d o w . G e t P r o p e r t y ( " C o l o r " ,   1 ) ) ;       
 
 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S E P A R A T O R ,   0 ,   0 ) 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   7 ,   " P r o p e r t i e s . . . " ) ; 
 
         _ m e n u . A p p e n d M e n u I t e m ( M F _ S T R I N G ,   8 ,   " C o n f i g u r e . . . " ) ; 
 
 
 
         i d x   =   _ m e n u . T r a c k P o p u p M e n u ( x ,   y ) ; 
 
         s w i t c h   ( i d x )   { 
 
 
 
         c a s e   1 : 
 
         c a s e   2 : 
 
         c a s e   3 : 
 
         c a s e   4 : 
 
         c a s e   5 : 
 
         c a s e   6 : 
 
                 w i n d o w . S e t P r o p e r t y ( " C o l o r " ,   i d x ) ;       
 
                 w i n d o w . R e p a i n t ( ) ;       
 
                 b r e a k ;       
 
         c a s e   7 : 
 
                 w i n d o w . S h o w P r o p e r t i e s ( ) ; 
 
                 b r e a k ;   
 
         c a s e   8 : 
 
                 w i n d o w . S h o w C o n f i g u r e ( ) ; 
 
                 b r e a k ; 
 
 } 
 
         _ m e n u . D i s p o s e ( ) ; 
 
 r e t u r n   t r u e 
 
 } 
 
 f u n c t i o n   o n _ t i m e r ( i d ) { 
 
     c u r r e n t T i m e   =   n e w   D a t e ( ) ; 
 
 w i n d o w . R e p a i n t ( ) ; 
 
 } 
 
 / / E O F 